home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / I-Info Magazine / (c)i20.d64 / b.a.sda / B.A. UTIL. (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  12KB  |  374 lines
  1. 10 REM     ***   B.A. UTIL.  ***
  2. 15 REM    *** BY JIM ABRONSKI ***
  3. 20 REM   *** REVISED  10/11/87 ***
  4. 25 POKE53280,0:POKE53281,0:CLR
  5. 30 DIMSL$(20),L1$(20),L2$(20),L3$(20),L4$(20),L5$(20)
  6. 35 DIMMDE$(20),MCM$(20),MRM$(20),PF$(20),LP$(20),LN$(20)
  7. 40 A=2000:IFPEEK(56)<64THENA=100
  8. 45 DIMI$(26),A$(A)
  9. 50 C1$="":C2$="[154]":AN=1:CR$=CHR$(13):Q$=CHR$(34)
  10. 55 LJ$="   [155]                                  [145]"
  11. 60 SL$(1)=" LABEL MANAGER "
  12. 65 SL$(2)=" ERASE PERSONAL DATA "
  13. 70 SL$(3)=" VALIDATE DISK "
  14. 75 SL$(4)=" USE DISK COPIER "
  15. 80 SL$(5)=" USE FILE COPIER "
  16. 85 SL$(6)=" MO.BILLS CONVERSION "
  17. 90 SL$(7)=" VIEW/PRINT DIRECTORY "
  18. 95 SL$(8)=" LOAD H.A.L. SYSTEM "
  19. 100 SL$(9)=" RETURN TO BANK ACCOUNTS "
  20. 105 SL$(10)=" EXIT TO BASIC "
  21. 110 PRINTCHR$(142):PRINT"[147][154]       B. A.   U T I L I T I E S       "
  22. 115 PRINT"[158]   CHOOSE WITH CURSOR KEYS:"
  23. 120 FORX=1TO10:PRINT"       ";C1$;SL$(X):NEXTX
  24. 125 PRINT"[158]   PRESS  RETURN [158][146] TO ENTER SELECTION.[145]"
  25. 130 PRINT"       ";C2$;SL$(1)
  26. 135 GETAN$:IFAN$=""THEN135
  27. 140 IFAN$=CHR$(13)THEN200:REM RETURN
  28. 145 IFAN$=CHR$(145)THEN160:REM CRSR UP
  29. 150 IFAN$=CHR$(17)THEN180:REM CRSR DOWN
  30. 155 GOTO135
  31. 160 PN=AN:AN=AN-1:IFAN=0THENAN=10
  32. 165 PRINT"[145]       ";C1$;SL$(PN)
  33. 170 IFPN=1THENPRINT"       ";C2$;SL$(AN):GOTO135
  34. 175 PRINT"[145][145][145]       ";C2$;SL$(AN):GOTO135
  35. 180 PN=AN:AN=AN+1:IFAN=11THENAN=1
  36. 185 PRINT"[145]       ";C1$;SL$(PN)
  37. 190 IFPN=10THENPRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]       ";C2$;SL$(AN):GOTO135
  38. 195 PRINT"       ";C2$;SL$(AN):GOTO135
  39. 200 ON AN GOTO1025,780,205,475,480,530,275,485,490,995
  40. 205 PRINT"[147][154]     V A L I D A T E   A   D I S K     "
  41. 210 PRINT"[158]INSERT DISK TO BE VALIDATED."
  42. 215 PRINT"PRESS  RETURN [146][158] WHEN READY."
  43. 220 PRINT"[158]   (PRESS 'A[158]' TO ABORT)"
  44. 225 GETAN$:IFAN$=""THEN225
  45. 230 IFAN$="A"THEN25
  46. 235 IFAN$<>CHR$(13)THEN225
  47. 240 PRINT"VALIDATING....PLEASE WAIT."
  48. 245 OPEN15,8,15:PRINT#15,"V0":CLOSE15
  49. 250 PRINT"[158]VALIDATE ANOTHER DISK? (Y[158]/N[158])"
  50. 255 GETAN$:IFAN$=""THEN255
  51. 260 IFAN$="Y"THEN205
  52. 265 IFAN$<>"N"THEN255
  53. 270 GOTO25
  54. 275 PRINT"[147][154]      L I S T   D I R E C T O R Y [160][160][160][160] "
  55. 280 PRINT"[154]  VIEW [146][158] OR  PRINT  DIRECTORY?":AN=1
  56. 285 GETAN$:IFAN$=""THEN285
  57. 290 IFAN$=CHR$(13)THEN310
  58. 295 IFAN$=CHR$(29)THENPRINT"[145][158]  VIEW  OR [154] PRINT [146][158]":AN=2:GOTO285
  59. 300 IFAN$=CHR$(157)THENPRINT"[145] [154] VIEW [146][158] OR  PRINT ":AN=1:GOTO285
  60. 305 GOTO285
  61. 310 IFAN=1THENOPEN3,3:GOTO325
  62. 315 IFAN=2THENOPEN3,4:GOSUB450:GOTO325
  63. 320 GOTO285
  64. 325 GOSUB345:PRINT"[158]LIST ANOTHER DIRECTORY? (Y[158]/N[158])"
  65. 330 GETAN$:IFAN$=""THEN330
  66. 335 IFAN$<>"Y"THEN25
  67. 340 GOTO275
  68. 345 Z0$=CHR$(0)
  69. 350 OPEN8,8,0,"$0:*"
  70. 355 PRINT"  SPACE [146][158] TOGGLES PAUSE   SHIFT [146][158] TO END"
  71. 360 GET#8,A$,A$:IFA$=""THEN440
  72. 365 GET#8,A$,A$,A$,D$
  73. 370 BK=ASC(A$+Z0$)+256*ASC(D$+Z0$):BK$="     "+STR$(BK)+" "
  74. 375 IFST=0THENPRINT#3,BK$;
  75. 380 IFST<>0THEN440
  76. 385 GET#8,I$(1),I$(2),I$(3),I$(4),I$(5),I$(6),I$(7),I$(8),I$(9),I$(10)
  77. 390 GET#8,I$(11),I$(12),I$(13),I$(14),I$(15),I$(16),I$(17),I$(18),I$(19),I$(20)
  78. 395 GET#8,I$(21),I$(22),I$(23),I$(24),I$(25),I$(26)
  79. 400 PRINT#3,I$(1)I$(2)I$(3)I$(4)I$(5)I$(6)I$(7)I$(8)I$(9)I$(10);
  80. 405 PRINT#3,I$(11)I$(12)I$(13)I$(14)I$(15)I$(16)I$(17)I$(18)I$(19)I$(20);
  81. 410 PRINT#3,I$(21)I$(22)I$(23)I$(24)I$(25)I$(26);
  82. 415 IFI$(26)<>""THENGET#8,A$,I$(26):PRINT#3,A$I$(26);:GOTO415
  83. 420 IFPEEK(653)THENPRINT#3:GOTO440:REM SHIFT KEY DETECT
  84. 425 GETA$:IFA$=""THEN435
  85. 430 GETA$:IFA$=""THEN430
  86. 435 IFST=0THENPRINT#3:GOTO365
  87. 440 POKE198,0:PRINT#3:CLOSE3:CLOSE8
  88. 445 RETURN
  89. 450 CLOSE4,4:OPEN4,4
  90. 455 PRINT#4:IFNOTPEEK(144)AND128THENGOTO465
  91. 460 PRINT"   *** [158]PLEASE TURN THE PRINTER ON[160]***[158][145]":PP=1:GOTO455
  92. 465 IFPP=1THENPRINT"                                      [145]"
  93. 470 CLOSE4,4:OPEN4,4,7:RETURN
  94. 475 H$="DISK COPIER":GOTO505
  95. 480 H$="FILE COPIER":GOTO505
  96. 485 H$="H.A.L.":GOTO495
  97. 490 H$="BANK ACCOUNTS":GOTO505
  98. 495 PRINT"[147][158]   INSERT H.A.L. DISK, PRESS  RETURN [146]"
  99. 500 GETAN$:IFAN$<>CHR$(13)THEN500
  100. 505 G2$=",8":IFAN=4THENG2$=",8,1[158]"
  101. 506 POKE198,4
  102. 510 PRINT"[147][144]LOAD"CHR$(34)H$;
  103. 515 PRINT CHR$(34)G2$;
  104. 520 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  105. 525 END
  106. 530 PRINT"[147] [154]      MONTHLY  BILLS  CONVERSION      "
  107. 535 PRINT"THIS OPTION CONVERTS YOUR MONTHLY BILLS"
  108. 540 PRINT"FILES FROM ANY OLDER VERSIONS OF THE"
  109. 545 PRINT"BANK ACCOUNTS PROGRAM YOU MAY BE USING"
  110. 550 PRINT"(THOSE USING NUMERICAL SELECTION MENUS)"
  111. 555 PRINT"TO THE FORMAT USED BY THE NEWER VERSIONS"
  112. 560 PRINT"(THOSE USING CURSOR KEY SELECTION MENUS)"
  113. 565 PRINT"ALLOWING RETENTION OF THE LAST AMOUNT"
  114. 570 PRINT"PAID, AND THE CHECK NUMBER USED."
  115. 575 PRINT"[158]INSERT THE DISK WITH THE FILES TO BE"
  116. 580 PRINT"CONVERTED, THEN PRESS  RETURN [146]"
  117. 585 PRINT" [158](PRESS 'A[158]' TO ABORT)[145][145]"
  118. 590 GETAN$:IFAN$=""THEN590
  119. 595 IFAN$="A"THEN25
  120. 600 IFAN$=CHR$(13)THEN610
  121. 605 GOTO590
  122. 610 OPEN15,8,15
  123. 615 A=1:BILL$="MO.BILLS 1":PRINT#15,"I0":GOTO645
  124. 620 INPUT#15,EN,EM$,ET,ES
  125. 625 IF EN=0 THEN RETURN
  126. 630 PRINT" ERROR ON DISK "
  127. 635 PRINTEN,EM$,ET,ES
  128. 640 CLOSE3:CLOSE4:CLOSE8:CLOSE9:CLOSE15:FORT=1TO9999:NEXTT:RUN
  129. 645 OPEN9,8,9,"0:"+BILL$+",S,R"
  130. 650 GOSUB620
  131. 655 INPUT#9,MB$
  132. 660 GOSUB620
  133. 665 M=VAL(MB$):FORX=1TOM
  134. 670 INPUT#9,MDE$(X),MCM$(X),MRM$(X),PF$(X)
  135. 675 GOSUB620
  136. 680 RS=ST
  137. 685 IFRS=64THEN700
  138. 690 IFRS<>0THENCLOSE9:PRINT"BAD DISK STATUS IS "RS
  139. 695 FORT=1TO9999:NEXTT:GOTO25
  140. 700 IFX<>2THEN715
  141. 705 IFMDE$(X)<>" UNPAID "ANDLEFT$(RIGHT$(MDE$(X),3),1)<>"."THEN715
  142. 710 X=M:NEXTX:CLOSE9:PRINT"THESE FILES ARE ALREADY CONVERTED.":GOTO695
  143. 715 NEXTX:CLOSE9
  144. 720 OPEN9,8,9,"@0:"+BILL$+",S,W"
  145. 725 GOSUB620
  146. 730 PRINT#9,MB$
  147. 735 GOSUB620
  148. 740 FORX=1TOM:LP$(X)=" UNPAID ":LN$(X)="NONE"
  149. 745 PRINT#9,MDE$(X);CR$;MCM$(X);CR$;MRM$(X);CR$;PF$(X);CR$;LP$(X);CR$;LN$(X)
  150. 750 GOSUB620
  151. 755 NEXTX:CLOSE9
  152. 760 IFP=1THENA=0:BILL$="MO.BILLS 2":GOSUB775:GOTO645
  153. 765 PRINT"YOUR MO.BILLS FILES HAVE BEEN CONVERTED."
  154. 770 CLOSE15:FORT=1TO2000:NEXTT:GOTO25
  155. 775 FORX=1TOM:MDE$(X)="":MCM$(X)="":MRM$(X)="":PF$(X)="":NEXTX:RETURN
  156. 780 PRINT"[147][154] E R A S E   P E R S O N A L   D A T A "
  157. 785 PRINT"THIS OPTION WILL ERASE ALL YOUR PERSONAL"
  158. 790 PRINT"DATA FROM A [154]COPY OF YOUR BANK ACCOUNTS  "
  159. 795 PRINT"DISK (SO YOU MAY GIVE IT TO A FRIEND)."
  160. 800 PRINT"[158]DO YOU HAVE A DISK TO ERASE? (Y[158]/N[158])"
  161. 805 GETAN$:IFAN$=""THEN805
  162. 810 IFAN$="Y"THEN825
  163. 815 IFAN$="N"THEN25
  164. 820 GOTO805
  165. 825 PRINT"[158]INSERT DISK TO BE ERASED, PRESS  RETURN [146]"
  166. 830 GETAN$:IFAN$<>CHR$(13)THEN830
  167. 835 PRINT"[147]     *** [158]ERASING PERSONAL DATA ***"
  168. 840 OPEN15,8,15,"I0":GOSUB620
  169. 845 OPEN8,8,8,"@0:ACCT.INFO.,S,W":GOSUB620
  170. 850 ED$(1)="INACTIVE"
  171. 855 FORX=1TO9
  172. 860 PRINT#8,ED$(1)
  173. 865 GOSUB620
  174. 870 NEXTX:PRINT#8:CLOSE8:RR=1
  175. 875 IFRR=1THENRR$="REGISTER 1":GOTO910
  176. 880 IFRR=2THENRR$="REGISTER 2":GOTO910
  177. 885 IFRR=3THENRR$="REGISTER 3":GOTO910
  178. 890 IFRR=4THENRR$="MO.BILLS 1":GOTO910
  179. 895 IFRR=5THENRR$="MO.BILLS 2":GOTO910
  180. 900 IFRR=6THEN1715
  181. 905 IFRR=7THEN940
  182. 910 OPEN8,8,8,"@0:"+RR$+",S,W":GOSUB620
  183. 915 ED$(1)="0"
  184. 920 FORX=1TO4
  185. 925 PRINT#8,ED$(1)
  186. 930 GOSUB620
  187. 935 NEXTX:PRINT#8:CLOSE8:RR=RR+1:GOTO875
  188. 940 OPEN8,8,8,"@0:MO.BILLS 3,S,W":GOSUB620
  189. 945 ED$(1)="MONEY"
  190. 950 PRINT#8,ED$(1)
  191. 955 GOSUB620
  192. 960 PRINT#8:CLOSE8
  193. 965 PRINT#15,"S0:ACCT. *"
  194. 970 PRINT#15,"I0:":CLOSE5:OPEN5,8,5,"#"
  195. 975 PRINT#15,"U1:5,0,18,0":PRINT#15,"B-P:5,144"
  196. 980 N$="B.A. SYSTEM     "
  197. 985 PRINT#15,"B-P:5,144":PRINT#5,N$;:PRINT#15,"U2:5,0,18,0":CLOSE5:CLOSE15
  198. 990 GOTO25
  199. 995 PRINT"[158]  LEAVE QUICKLOAD WEDGE IN PLACE? (Y[158]/N[158])[145][145]"
  200. 1000 GETAN$:IFAN$=""THEN1000
  201. 1005 IFAN$="N"THENSYS64738
  202. 1010 IFAN$<>"Y"THEN1000
  203. 1015 PRINT"[147]**** [158]COMMODORE 64 BASIC V2 ****"
  204. 1020 PRINT"[154]64K RAM SYSTEM  37895[154] BASIC BYTES FREE":NEW
  205. 1025 OPEN15,8,15:GOSUB1170
  206. 1030 PRINTCHR$(142):PRINT"[147][154]        L A B E L   M A N A G E R      ":AN=1
  207. 1035 BL$="                                       ":FORX=1TO6:NN$(X)="":NEXTX
  208. 1040 PRINT"[158]   CHOOSE WITH CURSOR KEYS:"
  209. 1045 FORX=1TOC:PRINT"       ";C1$;SL$(X):NEXTX
  210. 1050 PRINT"[158]   PRESS  RETURN [158][146] TO ENTER SELECTION.[145]"
  211. 1055 PRINT"       ";C2$;SL$(1)
  212. 1060 GETAN$:IFAN$=""THEN1060
  213. 1065 IFAN$=CHR$(13)THEN1145
  214. 1070 IFAN$=CHR$(145)THEN1085
  215. 1075 IFAN$=CHR$(17)THEN1120
  216. 1080 GOTO1060
  217. 1085 PN=AN:AN=AN-1:IFAN=0THENAN=C
  218. 1090 PRINT"[145]       ";C1$;SL$(PN)
  219. 1095 IFPN<>1THEN1115
  220. 1100 IFC=2THEN1110
  221. 1105 FORX=1TOC-2:PRINT"";:NEXTX
  222. 1110 PRINT"       ";C2$;SL$(AN):GOTO1060
  223. 1115 PRINT"[145][145]       ";C2$;SL$(AN):GOTO1060
  224. 1120 PN=AN:AN=AN+1:IFAN=C+1THENAN=1
  225. 1125 PRINT"[145]       ";C1$;SL$(PN)
  226. 1130 IFPN<>CTHEN1140
  227. 1135 FORX=1TOC:PRINT"[145]";:NEXTX:PRINT"       ";C2$;SL$(AN):GOTO1060
  228. 1140 PRINT"       ";C2$;SL$(AN):GOTO1060
  229. 1145 IFAN=1THEN1215
  230. 1150 IFAN<>CTHEN1165
  231. 1155 IFLS$="S"THENGOSUB1565
  232. 1160 GOTO25
  233. 1165 E=AN:GOTO1370
  234. 1170 PRINT"[147]         ***[158] LOADING LABELS ***"
  235. 1175 OPEN8,8,8,"0:LABELS,S,R":GOSUB620
  236. 1180 INPUT#8,NL$:GOSUB620
  237. 1185 NL=VAL(NL$):SL$(1)=" CREATE A NEW LABEL ":IFNL=0THEN1210
  238. 1190 G=2:IFNL=18THENG=1
  239. 1195 FORX=GTONL+1
  240. 1200 INPUT#8,SL$(X),L1$(X),L2$(X),L3$(X),L4$(X),L5$(X)
  241. 1205 GOSUB620:NEXTX
  242. 1210 CLOSE8:C=NL+2:SL$(C)=" RETURN TO UTILITIES ":RETURN
  243. 1215 IFNL<>17THEN1240
  244. 1220 PRINT"[147]YOU ARE AT THE MAXIMUM # OF LABELS."
  245. 1225 PRINT"YOU MUST NOW DELETE AN EXISTING LABEL"
  246. 1230 PRINT"BEFORE YOU CAN CREATE A NEW LABEL."
  247. 1235 FORT=1TO6000:NEXTT:GOTO1030
  248. 1240 PRINTCHR$(14):PRINT"[147][154]        [204][160][193][160][194][160][197][160][204][160][160][160][205][160][193][160][206][160][193][160][199][160][197][160][210]      ":RE$=""
  249. 1245 FORX=1TO5:PRINT"   [155]                                  [146]":NEXTX
  250. 1250 FORF=1TO5
  251. 1255 PRINT"[158][197][206][212][197][210][160][204][201][206][197] #[154]";F;"[158]:":PRINTBL$
  252. 1260 PRINT"   ^                                ^[145][145]"
  253. 1265 PRINT"  >";:GOSUB1815:NN$(F)=AN$
  254. 1270 PRINT"":FORX=1TOF:PRINT"";:NEXTX:PRINT
  255. 1275 PRINT"   [155]                                  [145]":PRINT"   [155]";NN$(F)
  256. 1280 IFCJ=1THENCJ=0:GOTO1290
  257. 1285 NEXTF
  258. 1290 PRINT"[158][196][207][160][217][207][213][160][215][201][211][200][160][212][207][160][205][193][203][197][160][193][206][217][160][195][200][193][206][199][197][211]? ([217][158]/[206][158])"
  259. 1295 GETAN$:IFAN$=""THEN1295
  260. 1300 IFAN$="Y"THEN1315
  261. 1305 IFAN$="N"THEN1340
  262. 1310 GOTO1295
  263. 1315 PRINT"[158][215][200][201][195][200][160][204][201][206][197] (1-5[158]) [196][207][160][217][207][213][160][215][193][206][212][160][212][207][160][195][200][193][206][199][197]?"
  264. 1320 GETAN$:IFAN$=""THEN1320
  265. 1325 IFVAL(AN$)>5THEN1320
  266. 1330 IFVAL(AN$)=0THEN1320
  267. 1335 F=VAL(AN$):PRINT"[145][145][145]"BL$:PRINT""BL$:CJ=1:GOTO1255
  268. 1340 PRINT"[158][197][206][212][197][210][160][212][201][212][204][197] [198][207][210][160][212][200][201][211][160][204][193][194][197][204]:":PRINT"   (USE LOWER CASE ONLY!)"
  269. 1345 INPUT" >[157][157]";AN$
  270. 1350 NN$(6)=" "+AN$+" ":LS$="S"
  271. 1355 SL$(C+1)=SL$(C):L1$(C+1)=L1$(C):L2$(C+1)=L2$(C):L3$(C+1)=L3$(C)
  272. 1360 L4$(C+1)=L4$(C):L5$(C+1)=L5$(C):SL$(C)=NN$(6):L1$(C)=NN$(1):L2$(C)=NN$(2)
  273. 1365 L3$(C)=NN$(3):L4$(C)=NN$(4):L5$(C)=NN$(5):C=C+1:NL=NL+1:GOTO1030
  274. 1370 PRINT"[147]":GOSUB450:PRINT"[147]":PRINTCHR$(14)
  275. 1375 PRINT"[147][154]        [204][160][193][160][194][160][197][160][204][160][160][160][205][160][193][160][206][160][193][160][199][160][197][160][210][160][160]    "
  276. 1380 PRINTLJ$:PRINT"   [155]";L1$(E)
  277. 1385 PRINTLJ$:PRINT"   [155]";L2$(E)
  278. 1390 PRINTLJ$:PRINT"   [155]";L3$(E)
  279. 1395 PRINTLJ$:PRINT"   [155]";L4$(E)
  280. 1400 PRINTLJ$:PRINT"   [155]";L5$(E)
  281. 1405 PRINT"[129]   [208][210][197][208][193][210][197][160][212][200][197] [204][193][194][197][204][211][160][201][206][160][217][207][213][210] [208][210][201][206][212][197][210]":AN=1
  282. 1410 PC$(1)=" [208][210][201][206][212][160][212][200][201][211][160][204][193][194][197][204] "
  283. 1415 PC$(2)=" [193][204][201][199][206][205][197][206][212] [208][193][212][212][197][210][206][160]"
  284. 1420 PC$(3)=" [211][208][197][195][201][198][201][195][160][209][213][193][206][212][201][212][217][160]"
  285. 1425 PC$(4)=" [196][197][204][197][212][197][160][212][200][201][211][160][204][193][194][197][204][160]"
  286. 1430 PC$(5)=" [210][197][212][213][210][206][160][212][207][160][205][197][206][213][160]"
  287. 1435 PRINT"[158]   [195][200][207][207][211][197][160][215][201][212][200][160][195][213][210][211][207][210][160][203][197][217][211]:"
  288. 1440 FORX=1TO5:PRINT"       ";C1$;PC$(X):NEXTX
  289. 1445 PRINT"[158]   [208][210][197][211][211]  [210][197][212][213][210][206] [158][146] [212][207][160][197][206][212][197][210][160][211][197][204][197][195][212][201][207][206].[145]"
  290. 1450 PRINT"       ";C2$;PC$(1)
  291. 1455 GETAN$:IFAN$=""THEN1455
  292. 1460 IFAN$=CHR$(13)THEN1520:REM RETURN
  293. 1465 IFAN$=CHR$(145)THEN1480:REM CRSR UP
  294. 1470 IFAN$=CHR$(17)THEN1500:REM CRSR DOWN
  295. 1475 GOTO1455
  296. 1480 PN=AN:AN=AN-1:IFAN=0THENAN=5
  297. 1485 PRINT"[145]       ";C1$;PC$(PN)
  298. 1490 IFPN=1THENPRINT"       ";C2$;PC$(AN):GOTO1455
  299. 1495 PRINT"[145][145][145]       ";C2$;PC$(AN):GOTO1455
  300. 1500 PN=AN:AN=AN+1:IFAN=6THENAN=1
  301. 1505 PRINT"[145]       ";C1$;PC$(PN)
  302. 1510 IFPN=5THENPRINT"[145][145][145][145][145][145][145][145][145]       ";C2$;PC$(AN):GOTO1455
  303. 1515 PRINT"       ";C2$;PC$(AN):GOTO1455
  304. 1520 IFAN=1THENGOSUB1625:GOTO1455
  305. 1525 IFAN=2THENGOSUB1655:GOTO1455
  306. 1530 IFAN=3THEN1545
  307. 1535 IFAN=4THEN1670
  308. 1540 IFAN=5THENCLOSE4:GOTO1030
  309. 1545 INPUT"[158]   [208][210][201][206][212][160][204][193][194][197][204][160][200][207][215][160][205][193][206][217][160][212][201][205][197][211]         [157][157][157][157][157][157][157][157]";QT
  310. 1550 IFQT<1THENPRINT"[145][145][145][145][145][145][145]":GOTO1545
  311. 1555 IFQT>99THENPRINT"[145][145][145][145][145][145][145]":GOTO1545
  312. 1560 FORX=1TOQT:GOSUB1625:NEXTX:GOTO1375
  313. 1565 PRINT"[147]         *** [158]SAVING LABELS ***"
  314. 1570 OPEN8,8,8,"@0:LABELS,S,W":GOSUB620
  315. 1575 NL$=STR$(NL)
  316. 1580 PRINT#8,NL$
  317. 1585 FORX=2TONL+1
  318. 1590 PRINT#8,Q$+SL$(X)+Q$
  319. 1595 PRINT#8,Q$+L1$(X)+Q$
  320. 1600 PRINT#8,Q$+L2$(X)+Q$
  321. 1605 PRINT#8,Q$+L3$(X)+Q$
  322. 1610 PRINT#8,Q$+L4$(X)+Q$
  323. 1615 PRINT#8,Q$+L5$(X)+Q$
  324. 1620 GOSUB620:NEXTX:CLOSE8:RETURN
  325. 1625 PRINT#4,L1$(E)
  326. 1630 PRINT#4,L2$(E)
  327. 1635 PRINT#4,L3$(E)
  328. 1640 PRINT#4,L4$(E)
  329. 1645 PRINT#4,L5$(E)
  330. 1650 PRINT#4:RETURN
  331. 1655 PRINT#4,"**********************************"
  332. 1660 FORX=1TO3:PRINT#4,"*                                *":NEXTX
  333. 1665 PRINT#4,"**********************************":RETURN
  334. 1670 PRINT"[158]   [208][210][207][195][197][197][196][160][215][201][212][200][160][196][197][204][197][212][197][201][206][199][158][160][204][193][194][197][204]? ([217][158]/[206][158]) [145][145]"
  335. 1675 GETAN$:IFAN$=""THEN1675
  336. 1680 IFAN$="N"THEN1375
  337. 1685 IFAN$="[206]"THEN1375
  338. 1690 IFAN$="[217]"THEN1700
  339. 1695 IFAN$<>"Y"THEN1675
  340. 1700 PRINT"[147]        *** [158][196][197][204][197][212][197][201][206][199][160][204][193][194][197][204] ***"
  341. 1705 FORX=ETOC:SL$(X)=SL$(X+1):L1$(X)=L1$(X+1):L2$(X)=L2$(X+1):L3$(X)=L3$(X+1)
  342. 1710 L4$(X)=L4$(X+1):L5$(X)=L5$(X+1):NEXTX:NL=NL-1:C=C-1:GOTO1030
  343. 1715 NL$="2":LL$(1)="":LL$(2)="   [202]IM [193]BRONSKI":LL$(3)="   6003 [215]. [194]URKE [211]T."
  344. 1720 XL$=" BANK ACCOUNTS AUTHOR ":YL$=" CHECK MANUFACTURER "
  345. 1725 LL$(4)="   [212]AMPA, [198]LORIDA 33634"
  346. 1730 LL$(5)="   [196][197][204][213][216][197] [195]OMPUTER [198]ORMS":LL$(6)="   1275 [210]ED [198]OX [210]OAD"
  347. 1735 LL$(7)="   [211]T. [208]AUL, [205]INNESOTA 55164"
  348. 1740 OPEN8,8,8,"@0:LABELS,S,W":GOSUB620
  349. 1745 PRINT#8,NL$:GOSUB620
  350. 1750 PRINT#8,Q$+XL$+Q$
  351. 1755 PRINT#8,Q$+LL$(1)+Q$
  352. 1760 PRINT#8,Q$+LL$(2)+Q$
  353. 1765 PRINT#8,Q$+LL$(3)+Q$
  354. 1770 PRINT#8,Q$+LL$(4)+Q$
  355. 1775 PRINT#8,Q$+LL$(1)+Q$
  356. 1780 PRINT#8,Q$+YL$+Q$
  357. 1785 PRINT#8,Q$+LL$(1)+Q$
  358. 1790 PRINT#8,Q$+LL$(5)+Q$
  359. 1795 PRINT#8,Q$+LL$(6)+Q$
  360. 1800 PRINT#8,Q$+LL$(7)+Q$
  361. 1805 PRINT#8,Q$+LL$(1)+Q$
  362. 1810 GOSUB620:PRINT#8:CLOSE8:RR=RR+1:GOTO875
  363. 1815 LL=34
  364. 1820 OPEN9,0:AN$="":BN$="":POKE204,0
  365. 1825 GET#9,BN$:IFBN$=""THEN1825
  366. 1830 IFBN$=CHR$(13)THENBN$="":CLOSE9:PRINT" ":POKE204,1:RETURN
  367. 1835 IFBN$=""ORBN$="[157]"ORBN$="[145]"ORBN$=""THENGOTO1825
  368. 1840 IFBN$=""ORBN$="[147]"THEN1825
  369. 1845 IFLEN(AN$)<LLTHEN1855
  370. 1850 PRINT" ":BN$=CHR$(13):GOTO1830
  371. 1855 IFAN$=""ANDBN$=CHR$(20)THEN1825
  372. 1860 IFBN$=CHR$(20)THENPRINT" [157][157] [157]";:AN$=LEFT$(AN$,LEN(AN$)-1):GOTO1825
  373. 1865 AN$=AN$+BN$:PRINTBN$;:GOTO1825
  374.